﻿Imports System.Data
Imports System.Data.SqlClient
Imports Abyx.SVCMS.Library.DB

Public MustInherit Class ManagerBase

#Region "Declarations"
    Protected Friend iLMuser As UserType = Nothing
    Protected Friend iLMDate As DateTime = DateTime.Now
    Protected Friend iConnection As SqlConnection = Nothing
    Protected Friend iTransaction As SqlTransaction = Nothing
#End Region

#Region "Constructors"
    Private Sub New()
        'Just to restrict manager object creation without UserId
    End Sub
    Public Sub New(ByVal LMuser As UserType)
        Me.iLMuser = LMuser
    End Sub
#End Region

#Region "Exposed Properties"
    Public Property LMuser() As UserType
        Get
            Return Me.iLMuser
        End Get
        Set(ByVal value As UserType)
            Me.iLMuser = value
        End Set
    End Property
    Public Property LMDate() As DateTime
        Get
            Return Me.iLMDate
        End Get
        Set(ByVal value As DateTime)
            Me.iLMDate = value
        End Set
    End Property
#End Region



End Class